object FMzPatient: TFMzPatient
  Left = 252
  Top = 213
  Width = 979
  Height = 580
  Caption = #24314#26723
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 65
    Top = 60
    Width = 32
    Height = 13
    AutoSize = False
    Caption = #22995' '#21517
  end
  object Label2: TLabel
    Left = 64
    Top = 80
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #24615' '#21035
  end
  object Label3: TLabel
    Left = 41
    Top = 104
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #25910#36153#36523#20221
  end
  object Label4: TLabel
    Left = 41
    Top = 128
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #20986#29983#26085#26399
  end
  object Label5: TLabel
    Left = 41
    Top = 152
    Width = 56
    Height = 13
    AutoSize = False
    Caption = #32852#31995#30005#35805
  end
  object Button1: TButton
    Left = 104
    Top = 14
    Width = 75
    Height = 25
    Caption = #22686#21152
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 184
    Top = 14
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 264
    Top = 14
    Width = 75
    Height = 25
    Caption = #20445#23384
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 424
    Top = 14
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 3
    OnClick = Button4Click
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 176
    Width = 929
    Height = 313
    DataSource = dtsMzPatient
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'p_id'
        Title.Caption = #30149#20154'ID'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #22995#21517
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex'
        Title.Caption = #24615#21035#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'birthday'
        Title.Caption = #20986#29983#26085#26399
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'birth_place'
        Title.Caption = #20986#29983#22320
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'home_street'
        Title.Caption = #23478#24237#22320#22336
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'relation_tel'
        Title.Caption = #32852#31995#30005#35805
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'response_type'
        Title.Caption = #25910#36153#32534#21495
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'black_flag'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'setup_date'
        Title.Caption = #21019#24314#26085#26399
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex_lookup'
        Title.Caption = #24615#21035
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'response_type_lookup'
        Title.Caption = #25910#36153#36523#20221
        Width = 60
        Visible = True
      end>
  end
  object DateTimePicker1: TDateTimePicker
    Left = 107
    Top = 128
    Width = 161
    Height = 21
    Date = 42289.456091215280000000
    Time = 42289.456091215280000000
    TabOrder = 5
    OnChange = DateTimePicker1Change
  end
  object tseditSex: TtsDBEdit
    Left = 107
    Top = 80
    Width = 161
    Height = 21
    DataField = 'sex_lookup'
    DataSource = dtsMzPatient
    TabOrder = 6
    ListField = 'sex_lookup'
    KeyField = 'sex'
    LookUpKeyField = #32534#30721
    LookUpResultField = #21517#31216
    SqlTag = 103
    LookupParams = <
      item
        DataType = ftUnknown
        Name = 'code'
        ParamType = ptUnknown
      end>
    ScrollParams = <
      item
        DataType = ftUnknown
        Name = 'code'
        ParamType = ptUnknown
      end>
    FilterParams = <
      item
        DataType = ftUnknown
        Name = #32534#30721
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = #21517#31216
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = #25340#38899#30721
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = #20116#31508#30721
        ParamType = ptUnknown
      end>
    AutoScroll = True
    DBGridAutoDropDown = True
    ConnectComponent = dmConnect.tsConnect1
    NullValueKey = 27
    AutoInputSwitch.AutoSwitch = True
    AutoInputSwitch.NumericParam = #32534#30721
    AutoInputSwitch.LetterParam = #25340#38899#30721
    AutoInputSwitch.ChineseCharactersParam = #21517#31216
    AutoInputSwitch.StarCharactersParam = #20116#31508#30721
  end
  object tseditResponse: TtsDBEdit
    Left = 107
    Top = 104
    Width = 161
    Height = 21
    DataField = 'response_type_lookup'
    DataSource = dtsMzPatient
    TabOrder = 7
    ListField = 'response_type_lookup'
    KeyField = 'response_type'
    LookUpKeyField = #32534#30721
    LookUpResultField = #21517#31216
    SqlTag = 104
    LookupParams = <
      item
        DataType = ftUnknown
        Name = 'code'
        ParamType = ptUnknown
      end>
    ScrollParams = <
      item
        DataType = ftUnknown
        Name = 'code'
        ParamType = ptUnknown
      end>
    FilterParams = <
      item
        DataType = ftUnknown
        Name = #32534#30721
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = #21517#31216
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = #25340#38899#30721
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = #20116#31508#30721
        ParamType = ptUnknown
      end>
    AutoScroll = True
    DBGridAutoDropDown = True
    ConnectComponent = dmConnect.tsConnect1
    NullValueKey = 27
    AutoInputSwitch.AutoSwitch = True
    AutoInputSwitch.NumericParam = #32534#30721
    AutoInputSwitch.LetterParam = #25340#38899#30721
    AutoInputSwitch.ChineseCharactersParam = #21517#31216
    AutoInputSwitch.StarCharactersParam = #20116#31508#30721
  end
  object DBEdit1: TDBEdit
    Left = 107
    Top = 56
    Width = 161
    Height = 21
    DataField = 'name'
    DataSource = dtsMzPatient
    TabOrder = 8
  end
  object Button5: TButton
    Left = 344
    Top = 14
    Width = 75
    Height = 25
    Caption = #25171#21360
    TabOrder = 9
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 24
    Top = 14
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 10
    OnClick = Button6Click
  end
  object DBEdit2: TDBEdit
    Left = 107
    Top = 152
    Width = 161
    Height = 21
    DataField = 'relation_tel'
    DataSource = dtsMzPatient
    TabOrder = 11
  end
  object adqMzPatient: TADOQuery
    Connection = dmConnect.adoCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from mz_patient(nolock)'
      'where 1=1')
    Left = 456
    Top = 64
  end
  object dspMzPatient: TDataSetProvider
    DataSet = adqMzPatient
    Left = 528
    Top = 64
  end
  object cdsMzPatient: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspMzPatient'
    OnCalcFields = cdsMzPatientCalcFields
    Left = 600
    Top = 64
    object cdsMzPatientp_id: TStringField
      FieldName = 'p_id'
      Size = 12
    end
    object cdsMzPatientname: TStringField
      FieldName = 'name'
      Size = 50
    end
    object cdsMzPatientsex: TStringField
      FieldName = 'sex'
      Size = 1
    end
    object cdsMzPatientbirthday: TDateTimeField
      FieldName = 'birthday'
    end
    object cdsMzPatientbirth_place: TStringField
      FieldName = 'birth_place'
      Size = 50
    end
    object cdsMzPatienthome_street: TStringField
      FieldName = 'home_street'
      Size = 100
    end
    object cdsMzPatientrelation_tel: TStringField
      FieldName = 'relation_tel'
      Size = 16
    end
    object cdsMzPatientresponse_type: TStringField
      FieldName = 'response_type'
      Size = 2
    end
    object cdsMzPatientblack_flag: TStringField
      FieldName = 'black_flag'
      FixedChar = True
      Size = 1
    end
    object cdsMzPatientsetup_date: TDateTimeField
      FieldName = 'setup_date'
    end
    object cdsMzPatientsex_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'sex_lookup'
      LookupDataSet = adqMzPatient
      LookupKeyFields = 'sex'
      LookupResultField = 'sex'
      Size = 50
    end
    object cdsMzPatientresponse_type_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'response_type_lookup'
      LookupDataSet = adqMzPatient
      LookupKeyFields = 'response_type'
      LookupResultField = 'response_type'
      Size = 50
    end
  end
  object dtsMzPatient: TDataSource
    DataSet = cdsMzPatient
    Left = 672
    Top = 64
  end
  object frxReport1: TfrxReport
    Version = '4.5'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #39044#35774
    PrintOptions.PrintOnSheet = 0
    ReportOptions.CreateDate = 42290.967505370400000000
    ReportOptions.LastChange = 42290.977779872700000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      ''
      'begin'
      ''
      'end.')
    Left = 752
    Top = 40
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Data: TfrxDataPage
      Height = 1000.000000000000000000
      Width = 1000.000000000000000000
    end
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      object ReportTitle1: TfrxReportTitle
        Height = 22.677180000000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        object Memo2: TfrxMemoView
          Left = 298.582870000000000000
          Width = 94.488250000000000000
          Height = 18.897650000000000000
          DisplayFormat.DecimalSeparator = '.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          HAlign = haCenter
          Memo.UTF8 = (
            #37925#21612#27721#28103#8451#20229)
          ParentFont = False
        end
      end
      object MasterData1: TfrxMasterData
        Height = 22.677180000000000000
        Top = 102.047310000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo3: TfrxMemoView
          Left = 11.338590000000000000
          Top = 3.779530000000000000
          Width = 94.488250000000000000
          Height = 18.897650000000000000
          DisplayFormat.DecimalSeparator = '.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8 = (
            #28654#25779#24725#38171#27476'frxDBDataset1."name"]')
          ParentFont = False
        end
        object Memo4: TfrxMemoView
          Left = 177.637910000000000000
          Top = 3.779530000000000000
          Width = 128.504020000000000000
          Height = 18.897650000000000000
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          DisplayFormat.DecimalSeparator = '.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          Memo.UTF8 = (
            #37804#1091#22470#38171#27476'frxDBDataset1."sex_lookup"]')
          ParentFont = False
        end
      end
      object PageFooter1: TfrxPageFooter
        Height = 22.677180000000000000
        Top = 185.196970000000000000
        Width = 718.110700000000000000
        object Memo1: TfrxMemoView
          Left = 642.520100000000000000
          Width = 75.590600000000000000
          Height = 18.897650000000000000
          HAlign = haRight
          Memo.UTF8 = (
            '[Page#]')
        end
      end
    end
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    CloseDataSource = False
    DataSet = cdsMzPatient
    Left = 752
    Top = 96
  end
end
